﻿Imports System.Configuration.Provider



''' <summary>
''' ComicProvider 集合
''' </summary>
''' <remarks></remarks>
Public Class ComicProviderCollection
    Inherits ProviderCollection


    Public Overrides Sub Add(ByVal provider As System.Configuration.Provider.ProviderBase)

        If provider Is Nothing Then Throw New ArgumentNullException(My.Resources.ComicProviderCollection.ArgumentNull)

        If Not (TypeOf provider Is ComicProvider) Then Throw New ArgumentException(My.Resources.ComicProviderCollection.ArgumentTypeErr)

        MyBase.Add(provider)

    End Sub



    Default Public Shadows ReadOnly Property Item(ByVal name As String) As ComicProvider
        Get
            Return DirectCast(MyBase.Item(name), ComicProvider)
        End Get
    End Property

    Public Overloads Sub CopyTo(ByVal array As ComicProvider(), ByVal index As Integer)
        MyBase.CopyTo(array, index)
    End Sub
End Class
